Testfile myfile
select
        when rc=0 then do
                Erase myfile
                say 'File' myfile 'existed, now erased'
                end
        when rc=28 | rc=36 then say myfile 'does not exist'
        otherwise
                say 'Unexpected return code Ò'rc'Ó from TESTFILE'
                exit rc
        end /* Select */